home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs06.d81 / lzhsfx.sfx / lzhtosfx.prg (.txt) < prev   
Commodore BASIC  |  1991-10-02  |  1KB  |  25 lines
  1. 100 REM"[212]HIS PROGRAM ATTACHES [195]HRIS [211]MEETS .[211][198][216] HEADER TO AN .[204][218][200] FILE."
  2. 110 REM"[212]HE BASIC PROGRAM CREATED BY [210]USSELL [208]RATER AND DONATED TO [208]UBLIC [196]OMAIN.
  3. 120 [143]"(null)HE HEADER, CALLED 'BASE' IS PART OF THE (null)HAREWARE PACKAGE 'LEN(null)-STR$(null)(null)'."
  4. 130 [143]"ATNLL RIGHTS TO 'LEN(null)-STR$(null)(null)' AND 'BASE' BELONG TO LENHRIS (null)MEETS."
  5. 140 [143]"CHR$ET 'LEN(null)-STR$(null)(null)' AND MAKE A (null)HAREWARE STR$ONATION TO LENHRIS.
  6. 150 PRINT"[147]     .[204][218][200] TO .[211][198][216] [195]ONVERTER [208]ROGRAM     "
  7. 160 PRINT"      [197]ASY PART BY: [210]USSELL [208]RATER"
  8. 170 PRINT"       [200]ARD PART BY: [195]HRIS [211]MEETS":PRINT
  9. 180 PRINT"[197]NTER [196]EVICE [206]UMBER OF [215]ORK [196]RIVE.   8[157][157][157]";:INPUT D
  10. 190 OPEN15,D,15:OPEN2,D,0,"BASE":GOSUB320:CLOSE2:IFE<20THEN220
  11. 200 IFE=62THENPRINT"[195]OPY THE PROGRAM [194][193][211][197] TO":PRINT"WORK DISK AND TRY AGAIN."
  12. 210 GOTO310
  13. 220 PRINT"[201]NPUT THE NAME OF THE .[204][218][200] FILE. ":INPUTLZ$
  14. 230 IFRIGHT$(LZ$,4)<>".LZH"THENPRINT"[208]LEASE INCLUDE THE .[204][218][200]":GOTO220
  15. 240 OPEN2,D,0,LZ$:CLOSE2
  16. 250 GOSUB320:IFETHEN310
  17. 260 PRINT"[215][207][210][203][201][206][199].... [208]LEASE WAIT."
  18. 270 FORI=1TO16:IFMID$(LZ$,I,1)<>"."THENNEXT
  19. 280 SF$=LEFT$(LZ$,I-1)+".SFX":C$="C0:ZZZ=BASE,"+LZ$
  20. 290 PRINT#15,C$:GOSUB320:IFE>20THEN310
  21. 300 NN$="R0:"+SF$+"=ZZZ":PRINT#15,NN$:GOSUB320:IFE<20THENPRINT".[211][198][216] [198]ILE IS [195]OMPLETED."
  22. 310 CLOSE15:END
  23. 320 INPUT#15,E,M$,T,S:IFETHENPRINT"[196]ISK [197]RROR: "M$
  24. 330 RETURN
  25.